home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / 2 servos (.txt) next >
Commodore BASIC  |  2022-10-26  |  587b  |  25 lines
  1. 10 rem **** 2 servos ****
  2. 50 data 120,162,73,160,3,142,20,3
  3. 51 data 140,21,3,88,96
  4. 52 data 169,3,141,3,221,141,1,221
  5. 53 data 162,0,228,252,208,8
  6. 54 data 56,233,1,240,18,141,1,221
  7. 55 data 228,253,208,8
  8. 56 data 56,233,2,240,6,141,1,221
  9. 57 data 232,208,229,141,1,221,76,49,234
  10. 100 poke252,65:poke253,65
  11. 110 for i=828to883:readk:pokei,k:next
  12. 120 sys828:poke53265,peek(53265)and239
  13. 130 p0=65:p1=65
  14. 140 if peek(203)=4thenp0=p0+1:goto200
  15. 150 if peek(203)=5thenp0=p0-1:goto200
  16. 160 if peek(203)=6thenp1=p1+1:goto250
  17. 170 if peek(203)=3thenp1=p1-1:goto250
  18. 190 goto140
  19. 200 if p0<40 thenp0=40
  20. 210 if p0>110 thenp0=110
  21. 220 poke252,p0:goto140
  22. 250 if p1<40 thenp1=40
  23. 260 if p1>110 thenp1=110
  24. 270 poke253,p1:goto140
  25.